home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / tpfort17.zip / FSAMPLE.FOR < prev    next >
Text File  |  1990-07-18  |  640b  |  28 lines
  1. c     This is the Fortran loader program to load Eval and Cube
  2. c
  3. c     Routines must be declared external to be passed properly. 
  4. c
  5.       external Eval, Cube
  6. c
  7. c     You must refer to the functions by number in the dummy procedures,
  8. c     so mark them here.  Pass the total number as the last argument
  9. c                  1    2
  10.       call CallTP(Eval,Cube,2)
  11.       stop
  12.       end
  13. c
  14.       subroutine Eval(Fn,N,X,Value)
  15.       real*8   Fn
  16.       integer  N
  17.       real*8   X(N),Value
  18.       Value = Fn(N,X)
  19.       return
  20.       end
  21. c
  22.       real*8 function Cube(X)
  23.       real*8 X
  24.       Cube = X**3
  25.       return
  26.       end
  27.  
  28.